Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue72/terminal/MainForm.dfm

Text File | 2001-06-03 | 8.3 KB | 344 lines

object TSIMainForm: TTSIMainForm
  Left = 337
  Top = 107
  Width = 357
  Height = 279
  Caption = 'Terminal Services Information'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 349
    Height = 233
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'System Information'
      object SysInfo: TMemo
        Left = 0
        Top = 0
        Width = 341
        Height = 205
        Align = alClient
        Lines.Strings = (
          'Please wait...')
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Sessions'
      ImageIndex = 1
      object GroupBox1: TGroupBox
        Left = 2
        Top = 0
        Width = 337
        Height = 65
        Anchors = [akLeft, akTop, akRight]
        Caption = 'Process And Session IDs'
        TabOrder = 0
        object Label1: TLabel
          Left = 8
          Top = 16
          Width = 92
          Height = 13
          Caption = 'Current Process ID:'
        end
        object Label2: TLabel
          Left = 128
          Top = 16
          Width = 95
          Height = 13
          Caption = 'Convert Process ID:'
        end
        object CurrentProcessID: TEdit
          Left = 8
          Top = 32
          Width = 97
          Height = 21
          Color = clBtnFace
          ReadOnly = True
          TabOrder = 0
          Text = 'CurrentProcessID'
        end
        object ConvertProcessID: TEdit
          Left = 128
          Top = 32
          Width = 97
          Height = 21
          TabOrder = 1
        end
        object ShowSession: TButton
          Left = 232
          Top = 29
          Width = 97
          Height = 25
          Caption = 'Show Session ID'
          TabOrder = 2
          OnClick = ShowSessionClick
        end
      end
      object GroupBox2: TGroupBox
        Left = 2
        Top = 66
        Width = 337
        Height = 135
        Anchors = [akLeft, akTop, akRight, akBottom]
        Caption = 'Sessions'
        TabOrder = 1
        object TSSessions: TListView
          Left = 8
          Top = 16
          Width = 320
          Height = 81
          Anchors = [akLeft, akTop, akRight, akBottom]
          Columns = <
            item
              Caption = 'Session'
            end
            item
              Caption = 'Window Station'
              Width = 150
            end
            item
              Caption = 'State'
              Width = 90
            end>
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
        end
        object ShowSessionInfo: TButton
          Left = 8
          Top = 104
          Width = 153
          Height = 25
          Anchors = [akLeft, akBottom]
          Caption = 'Show Session Information'
          TabOrder = 1
          OnClick = ShowSessionInfoClick
        end
        object RefreshSessions: TCheckBox
          Left = 225
          Top = -1
          Width = 104
          Height = 17
          Anchors = [akTop, akRight]
          Caption = 'Refresh Sessions'
          Checked = True
          State = cbChecked
          TabOrder = 2
        end
        object SendMsgToSession: TButton
          Left = 176
          Top = 104
          Width = 155
          Height = 25
          Anchors = [akLeft, akBottom]
          Caption = 'Send Message To Session'
          TabOrder = 3
          OnClick = SendMsgToSessionClick
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Processes'
      ImageIndex = 2
      object ProcessCount: TLabel
        Left = 88
        Top = 181
        Width = 103
        Height = 13
        Anchors = [akLeft, akBottom]
        Caption = '(no processes shown)'
      end
      object ProcessList: TListView
        Left = 0
        Top = 0
        Width = 341
        Height = 169
        Anchors = [akLeft, akTop, akRight, akBottom]
        Columns = <
          item
            Caption = 'Process ID'
            Width = 65
          end
          item
            Caption = 'Session ID'
            Width = 65
          end
          item
            Caption = 'Process Name'
            Width = 110
          end
          item
            Caption = 'User Name'
            Width = 80
          end>
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
      end
      object RefreshProcesses: TButton
        Left = 0
        Top = 176
        Width = 75
        Height = 25
        Anchors = [akLeft, akBottom]
        Caption = 'Refresh'
        TabOrder = 1
        OnClick = RefreshProcessesClick
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Resources'
      ImageIndex = 3
      object GroupBox3: TGroupBox
        Left = 0
        Top = 0
        Width = 160
        Height = 201
        Caption = 'Win32 Object'
        TabOrder = 0
        object Label3: TLabel
          Left = 12
          Top = 86
          Width = 59
          Height = 13
          Caption = 'Name prefix:'
        end
        object CreateMutex: TButton
          Left = 12
          Top = 22
          Width = 129
          Height = 25
          Caption = 'Create Mutex Object'
          TabOrder = 0
          OnClick = CreateMutexClick
        end
        object OpenMutex: TButton
          Left = 12
          Top = 54
          Width = 129
          Height = 25
          Caption = 'Open Mutex Object'
          TabOrder = 1
          OnClick = OpenMutexClick
        end
        object MutexNamePrefix: TComboBox
          Left = 12
          Top = 102
          Width = 129
          Height = 21
          ItemHeight = 13
          TabOrder = 2
          Items.Strings = (
            ''
            'Local\'
            'Global\')
        end
        object CloseMutex: TButton
          Left = 12
          Top = 142
          Width = 129
          Height = 25
          Caption = 'Close Mutex Object'
          TabOrder = 3
          OnClick = CloseMutexClick
        end
      end
      object GroupBox4: TGroupBox
        Left = 168
        Top = 0
        Width = 160
        Height = 201
        Caption = 'BDE Database Object'
        TabOrder = 1
        object Label4: TLabel
          Left = 12
          Top = 22
          Width = 73
          Height = 13
          Caption = 'Database alias:'
        end
        object Label5: TLabel
          Left = 12
          Top = 68
          Width = 102
          Height = 13
          Caption = 'SQL query statement:'
        end
        object BDEAlias: TComboBox
          Left = 12
          Top = 38
          Width = 133
          Height = 21
          ItemHeight = 13
          TabOrder = 0
          Items.Strings = (
            'DBDEMOS')
        end
        object SQLStatement: TMemo
          Left = 12
          Top = 84
          Width = 133
          Height = 77
          Lines.Strings = (
            'SELECT *'
            'FROM biolife')
          TabOrder = 1
        end
        object ExecuteQuery: TButton
          Left = 12
          Top = 168
          Width = 133
          Height = 25
          Caption = 'Execute Query'
          TabOrder = 2
          OnClick = ExecuteQueryClick
        end
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 210
    Top = 144
    object Information1: TMenuItem
      Caption = '&Information'
      object RefreshSystemInfo1: TMenuItem
        Caption = '&Refresh System Info'
        ShortCut = 16466
        OnClick = RefreshSystemInfo1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 32883
        OnClick = Exit1Click
      end
    end
  end
  object SessionRefreshTimer: TTimer
    OnTimer = SessionRefreshTimerTimer
    Left = 178
    Top = 144
  end
  object SQLQuery: TQuery
    Left = 244
    Top = 144
  end
end